home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / net / LT_UNIX255.lha / Extras / telef.sh < prev   
Text File  |  1997-04-16  |  3KB  |  148 lines
  1. # Agenda telefônica, by Cristian Robert Gallas.
  2. # 06/11/1994, Desenvolvido na versão 2.5.1, não roda em COLORS=2
  3.  
  4. a="";b="";c="";i=""
  5. _INICIO
  6. cls
  7.   under on
  8.   cup;centre "AGENDA TELEFONICA"
  9.   under off
  10.   pos 34 4;echo "1 - Inclui"
  11.   pos 34 6;echo "2 - Exclui"
  12.   pos 34 8;echo "3 - Consulta"
  13.   pos 34 10;echo "4 - Ordena"
  14.   pos 34 12;echo "5 - Imprime"
  15.   pos 30 16;insert "Qual opção: ",,6,p1,i0,,p0,i2
  16.   attrib i
  17. if i==""
  18.    echo
  19.    exit
  20. fi
  21. if i=1
  22.    goto INCLUI
  23. fi
  24. if i=2
  25.    goto EXCLUI
  26. fi
  27. if i=3
  28.    goto CONSULTA
  29. fi
  30. if i=4
  31.    goto ORDENA
  32. fi
  33. if i=5
  34.    goto IMPRIMI
  35. else
  36.    goto INICIO
  37. fi
  38. _INCLUI
  39.  cls
  40.  under on
  41.  pos 0 2;centre "MODULO DE INCLUSÃO"
  42.  under off
  43.  pos 16 5;insert "Qual nome ...... : ",,29,p1,i0,,p0,i2
  44.  attrib i
  45.  
  46.  if i==""
  47.     goto INICIO
  48.  fi
  49.  pos 16 7;insert "Qual telefone .. : ",,29,p1,i0,,p0,i2
  50.  attrib a
  51.  
  52.  if a==""
  53.     goto INICIO
  54.  fi
  55. pos 0 10
  56. border -c " Aguarde atualização... "
  57. len -o i;attrib c
  58. b=40;b=b-${c};c=${b};b=""
  59. spc ${c};attrib b
  60. c=${path}
  61. echo ${i}${b}${a} >> ${c}tel.lt
  62. goto INCLUI
  63. _CONSULTA
  64. cls;under on
  65. pos 0 2
  66. centre MODULO DE CONSULTA;under off
  67. pos 32 6;echo "1 - Individual"
  68. pos 32 8;echo "2 - Todos"
  69. pos 31 12;insert "Qual opção: ",,6,p1,i0,,p0,i2
  70. attrib i
  71. if i=1
  72.    goto INDIVIDUAL
  73. fi
  74. if i=2
  75.    goto TODOS
  76. else
  77.    goto INICIO
  78. fi
  79. _INDIVIDUAL
  80. pos 20 12;insert "Consultar ... : ",,29,p1,i0,,p0,i2
  81. attrib i
  82. if i==""
  83.    goto INICIO
  84. else
  85. cls
  86. echo "_________ NOME __________           _____ TELEFONE _____"
  87. echo
  88. a=${path}
  89.    grep ${a}tel.lt ${i}
  90.    echo
  91.    echo -a "Pressione [QUALQUER TECLA] ..."
  92.    wait key
  93.    goto INICIO
  94. fi
  95. _TODOS
  96. cls
  97. echo "_________ NOME __________           _____ TELEFONE _____"
  98. echo
  99. a=${path}
  100. pg ${a}tel.lt
  101. echo
  102. echo -a "Pressione [QUALQUER TECLA] ..."
  103. wait key
  104. goto INICIO
  105. _EXCLUI
  106. pos 20 16;insert Excluir ... : ,,29,p1,i0,,p0,i2
  107. attrib i
  108. if i==""
  109.    goto INICIO
  110. else
  111. a=${path}
  112.    grep -a -o ${a}tel.lt ${i}
  113.    attrib i
  114. fi
  115. cup;cline
  116. a=${path}
  117. pos 12 18;lgrep ${a}tel.lt,${i}
  118. pos 12 16
  119. pos 12 16;insert ____ Confirma exclusão [ 1 ] Sim, [ 2 ] Não ____ ,,4,p1,i0,,p0,i2
  120. attrib a
  121. if a=2
  122.    goto INICIO
  123. fi
  124. if a=1
  125.    a=${path}
  126.    cut line ${a}tel.lt,${i}
  127.    pos 12 18
  128.    echo "Exclusão com sucesso                  "
  129.    sleep 100
  130.    goto INICIO
  131. else
  132.    goto INICIO
  133. fi
  134. _IMPRIMI
  135. a=${path}
  136. pos 56 16;paper 1;echo "    "
  137. paper 0
  138. pos 21 16
  139. lp ${a}tel.lt,60,6
  140. goto INICIO
  141. _ORDENA
  142. pos 30 16;cline
  143. border -c  Ordenando... ;
  144. a=${path}
  145. sort ${a}tel.lt > ram:tel.lt0
  146. rm ${a}tel.lt;mv ram:tel.lt0 ${a}tel.lt
  147. goto INICIO
  148.